MacFormat 1996 Christmas/macformat-045.iso/Shareware Plus/HyperCard/get-set-mod-date-15/Get⁄SetModDate 1.5/Get_SetModDate 1.5/cards.xml

Text File | 1996-09-05 | 4.5 KB | 117 lines

card_2941.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>2941</id>
    <filler1>0</filler1>
    <bitmap>BMAP_2158.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2672</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3235.css" />
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>1</left>
            <top>82</top>
            <right>511</right>
            <bottom>309</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Monaco</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name></name>
        <script></script>
    </part>
    <part>
        <id>10</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>2</left>
            <top>54</top>
            <right>114</right>
            <bottom>76</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>GetModDate</name>
        <script>on mouseUp
answer file "Choose a file to examine:"
if it = "" then exit mouseup
put GetModDate(it) into modDate
convert modDate to long date and time
answer modDate
end mouseUp</script>
    </part>
    <part>
        <id>11</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>116</left>
            <top>54</top>
            <right>228</right>
            <bottom>76</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>SetModDate</name>
        <script>on mouseUp
put the seconds into newModDate
put newmoddate into moddate
convert moddate to long date and time
answer file "Choose a file to set Modification Date:"
if it = "" then exit mouseup
setModDate it,newModDate
answer "Modification date set to" && moddate & "."
end mouseUp</script>
    </part>
    <content>
        <layer>card</layer>
        <id>3</id>
        <text>GetModDate takes one parameter, the pathname of the file to examine. It returns the time in seconds which can be converted to a date. SetModDate takes two parameters, the pathname of the file to work on, and the datetime in seconds.

Click on and/or examine the scripts of the buttons above to see how they work!

This external is free for purely personal use. A license fee of $10.00 is required if you use this external in any “in-house” corporate, shareware or freeware products. The license fee for unlimited commercial use in a SINGLE “for sale” product is $25.00. The license fee for unlimited commercial use with MULTIPLE products is $100.00.

Permission is hereby granted to all groups who distribute demo software, either for profit (such as EduCorp) or not for profit (such as a Macintosh Users Group), to include this file in their collection. My goal is to get as much exposure for my products as possible, and I believe that these groups offer an invaluable service to shareware publishers like myself.

If you have questions or comments we can be reached through the following:

Iverson Software Co.          507.625.7355
522 Record St.                [e-mail]
Mankato MN  56001-2546        http://prairie.lakes.com/~j5rson/
</text>
    </content>
    <name></name>
    <script></script>
</card>